home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / megalo_sound / megalosoundv1.39.dms / megalosoundv1.39.adf / CopyDisk.com < prev    next >
Text File  |  1993-10-13  |  1KB  |  51 lines
  1. failat 30
  2.  
  3. assign >nil: df0: exists
  4. if not warn
  5.   assign >nil: df1: exists
  6.   if not warn
  7.     diskcopy from df0: to df1: noverify name "Megalosound"
  8.   else
  9.     assign >nil: df2: exists
  10.     if not warn
  11.       diskcopy from df0: to df2: noverify name "Megalosound"
  12.     else
  13.       assign >nil: df3: exists
  14.       if not warn
  15.         diskcopy from df0: to df3: noverify name "Megalosound"
  16.       else
  17.         diskcopy from df0: to df0: noverify name "Megalosound"
  18.       endif
  19.     endif
  20.   endif
  21. else
  22.   assign >nil: df1: exists
  23.   if not warn
  24.     assign >nil: df2: exists
  25.     if not warn
  26.       diskcopy from df1: to df2: noverify name "Megalosound"
  27.     else
  28.       assign >nil: df3: exists
  29.       if not warn
  30.         diskcopy from df1: to df3: noverify name "Megalosound"
  31.       else
  32.         diskcopy from df1: to df1: noverify name "Megalosound"
  33.       endif
  34.     endif
  35.   else
  36.     assign >nil: df2: exists
  37.     if not warn
  38.       assign >nil: df3: exists
  39.       if not warn
  40.         diskcopy from df2: to df3: noverify name "Megalosound"
  41.       else
  42.         diskcopy from df2: to df2: noverify name "Megalosound"
  43.       endif
  44.     else
  45.       diskcopy from df3: to df3: noverify name "Megalosound"
  46.     endif
  47.   endif
  48. endif
  49.  
  50. ENDCLI >NIL:
  51.